70 PRINTCHR$(142)
80 IFA=0THENA=1:LOAD"[215]INDOW [205]AGIC",8,1
90 SYS49152
100 PRINT "[147]";CHR$(8)
110 (null)(11,5,13): (null)
120 CR$=CHR$(13)
130 FOR CT=1 TO 2
140 PRINT "     [146]    [146]    [146]  [146]    [146]    [223][146] [169]  [223][146]  [146]    [146]"
150 PRINT "     [146]    [146]   [146]   [223][146]   [146]  [146]   [146]  [146]   [146]  [146]    [146]"
160 PRINT "     [169] [223] [146]   [146]   [146][223][223][146]  [146]  [146]   [146]  [146]   [146]  [169] [223] [146]"
170 PRINT "     [146][169] [223] [146]   [146]   [146] [223][223] [146]  [146]   [146]  [146]   [146]  [146][169] [223] [146]"
180 PRINT "    [169]   [223]    [146]  [146]  [223] [146]    [146][169] [223]  [146][169] [169]   [223]"
190 PRINT
200 PRINT "        [223][146]   [169][146] [169]  [223][146] [169]   [146]    [146] [169]   [146]"
210 PRINT "         [223][146] [169] [146]  [146]   [146]  [146]      [146]   [146]"
220 PRINT "         [146][223] [146][169] [146]     [146]  [146]  [223][146]   [146]   [146]"
230 PRINT "         [146]    [146]  [146]   [146]  [146]   [146]   [146]   [146]"
240 PRINT "         [146]    [146]  [146]   [146] [223]  [146][169]    [146] [223]   [146]"
250 IF CT=1 THEN: (null)(2): PRINT
260 NEXT CT: PRINT""
270 A$="   *** WINDOW MAGIC ***"+CR$+CR$+"           BY"
280 A$=A$+CR$+"     RICHARD F. DALEY"+CR$+"          AND"+CR$
290 A$=A$+"      SALLY J. DALEY"+CR$+CR$
300 A$=A$+" COPYRIGHT 1986[146]"
310 (null)(4,6,10,28): (null)(0,6,160,160,40,10)
320 FOR CT=0 TO 1000: NEXT: (null)(1,A$)
330 FOR CT=0 TO 2000: NEXT: (null)(1,0,0,32): (null)(11,19,7,9)
340 A$="[144]PRESS THE SPACE BAR TO BEGIN THE DEMO"
350 (null)(1,A$)
360 GET T$: IF T$<>" " THEN 360
370 (null)(1): (null)
380 A$="IN THE FOLLOWING SCREENS, PRESS THE SPACE BAR"
390 A$=A$+" WHEN YOU WISH TO CONTINUE."
400 (null) (0): (null)(4,4,14,12)
410 (null)(1,A$)
420 GET T$: IF T$<>" " THEN 420
430 A$="[144]WINDOW MAGIC ADDS 11 COMMANDS TO BASIC. THESE 11 COMMANDS "
440 A$=A$+"ALLOW YOU TO OPEN AND CLOSE WINDOWS, PRINT MESSAGES IN A WINDOW"
450 A$=A$+", AND SET WINDOW SIZE, COLOR AND OTHER PARAMETERS."
460 (null)(0,2): (null)(8,12,12,24)
470 (null)(1,A$)
480 GET T$: IF T$<>" " THEN 480
490 A$="YOU'LL BE AMAZED AT THE POWER OF [144]WINDOW MAGIC AND THE PROFESSIONAL"
500 A$=A$+" APPEARANCE OF THE PROGRAMS YOU WRITE USING [144]WINDOW MAGIC."
510 (null)(0,6): (null)(3,6,14,16): (null)(1,A$)
520 GET T$: IF T$<>" " THEN 520
530 A$="AS YOU CAN SEE YOU CAN USE ANY CHARACTER YOU WISH FOR A BORDER."
540 A$=A$+CR$+CR$+"DID YOUR C-64 EVER LOOK SO GOOD?"
550 (null)(0,1,42,32,50,50): (null)(4,26,15,12)
560 (null)(1,A$)
570 GET T$: IF T$<>" " THEN 570
580 A$="[149]YOU HAVE COMPLETE CONTROL OVER THE SPEED USED IN OPENING A WINDOW."
590 (null)(0,9,160,160,255,50): (null)(7,2,9,15)
600 (null)(1,A$)
610 GET T$: IF T$<>" " THEN 610
620 A$="AND THE PRINTING SPEED CAN BE FAST..."
630 (null)(0,9,160,160,50,1): (null)(2,A$)
640 FOR CT=0 TO 500: NEXT
650 A$=CR$+"OR SLOOOW..."
660 (null)(0,2,160,160,50,255): (null)(A$)
670 GET T$: IF T$<>" " THEN 670
680 A$="[144][146]AND HOW ABOUT THIS EFFECT? THE WINDOW HAS A THREE DIMENSIONAL"
690 A$=A$+" APPEARANCE."
700 (null)(1,8,0,32,50,50): (null)(12,14,10,14)
710 (null)(1,A$)
720 GET T$: IF T$<>" " THEN 720
730 A$="NOW WATCH THIS ONE...PRESS THE SPACE BAR SLOWLY 7 TIMES."
740 (null)(0,0): (null)(0,0,25,40)
750 (null)(1,A$)
760 GET T$: IF T$=" " THEN 760
770 FOR CT=1 TO 7
780 GET T$: IF T$<>" " THEN 780
790 (null)(3)
800 NEXT
810 FOR CT=1 TO 1000: NEXT
820 A$="ANOTHER FUN COMMAND IS 'SCROLL'. TO WATCH THIS PRESS THE"
830 A$=A$+" NUMBER KEYS 1 TO 4. WHEN FINISHED PRESS THE SPACE BAR."
840 (null): (null)(7,4,15,15): (null)(1,2,0,32,40,10)
850 (null)(1,A$)
860 GET T$: IF T$=" " THEN 910
870 DR=VAL(T$): IF DR<1 OR DR>4 THEN 860
880 FOR CT=1 TO 13: (null)(DR,1): NEXT CT
890 (null)(2,A$)
900 GOTO 860
910 (null)(3)
920 A$="NOW WE'LL LOOK AT THE MENU COMMAND. THIS COMMAND WILL ALLOW YOU TO"
930 A$=A$+" PREPARE A MENU IN A WINDOW AND EASILY SELECT"
940 A$=A$+" ONE OF THE ITEMS ON THAT MENU."
950 (null)(6,7,16,20): (null)(1,A$)
960 GET T$: IF T$<>" " THEN 960
970 A$="     MENU"+CR$+" TO SELECT ONE OF"+CR$
980 A$=A$+" THE MENU ITEMS,"+CR$+" USE THE CURSOR"+CR$
990 A$=A$+" UP AND DOWN"+CR$+" KEYS TO MOVE"+CR$
1000 A$=A$+" THE MARKER UP OR"+CR$+" DOWN. PRESS"+CR$
1010 A$=A$+" RETURN WHEN"+CR$+" THE CORRECT"+CR$
1020 A$=A$+" ENTRY IS MARKED."+CR$+" THE ASTERISK"+CR$
1030 A$=A$+" WILL REMAIN FOR"+CR$+" FOUR SECONDS."+CR$
1040 A$=A$+" PRESS 'Y' OR"+CR$+" OR 'N' TO"+CR$
1050 A$=A$+" STOP THE DELAY."
1060 (null)(1,0,0): (null)(1,12,19,21)
1070 (null)(16,A$,SL)
1080 (null)(0,11,0,32,50,50): (null)(16,9,5,20)
1090 A$="YOU SELECTED ENTRY NUMBER"+STR$(SL)+" ON THE MENU."
1100 (null)(1,A$)
1110 GET T$: IF T$<>" " THEN 1110
1120 (null)(1): (null)
1130 A$="THIS DEMONSTRATION DOES NOT INCLUDE ALL OF THE [144]WINDOW MAGIC "
1140 A$=A$+"COMMANDS. NOT SPECIFICALLY DEMONSTRATED ARE THE"
1150 A$=A$+" 'BOX', 'CLW', AND 'STORE' COMMANDS."
1160 A$=A$+CR$+CR$+"STUDY THE THIS PROGRAM FOR MORE "
1170 A$=A$+"DETAILS ON MAKING"
1180 FOR CT=1 TO 1000: NEXT
1190 (null)(1,6,0): (null)(5,4,13,31)
1200 (null)(1,A$)
1210 A$="[144]WINDOW MAGIC WORK. PRESS SPACE TO END THE DEMO."
1220 (null)(A$)
1230 GET T$: IF T$<>" " THEN 1230
1240 (null)(3): PRINT "";CHR$(8)
1250 END